home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u397.dms / in.adf / AutoExec.AMOS / AutoExec.amosSourceCode
Encoding:
AMOS Source Code  |  1990-10-01  |  775 b   |  22 lines
  1. '***************************************************     
  2. '* INTRODUCTION SCREEN for FORMS REALLY UNLIMITED  * 
  3. '*                (c)  A.H.Meek 1990               *     
  4. '*************************************************** 
  5. '
  6. VERSION$="Ver:1.04"
  7. '---------------------------  Version History  -----------  01/10/90 
  8. '  1.00   Original Header sent with appraisal sample 
  9. '  1.01   IFF Screens now added to replace dull intro
  10. '  1.02   IFF amalgamated into one screen
  11. '  1.03   Second Appraisal Sample
  12. '  1.04   Third Appraisal Sample sent to P.D.Library 
  13. '--------------------------------------------------------- 
  14. Hide 
  15. Load Iff("DF0:FScrn.IFF"),0
  16. Screen Display 0,,38,,
  17. Text 406,23,VERSION$
  18. Do 
  19.    K$=Inkey$ : Exit If K$<>""
  20.    Exit If Mouse Click
  21. Loop 
  22. Run "DF0:Forms.AMOS"